home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Linux Programs 1995 Summer
/
Linux Programs.iso
/
ghostscr
/
gs_2.6
/
gs_2
/
usr
/
lib
/
ghostscript
/
prfont.ps
< prev
next >
Wrap
Text File
|
1994-05-09
|
2KB
|
98 lines
%!PS-Adobe-1.0
%%Creator: Eric Gisin <egisin@waterloo.csnet>
%%Title: Print font catalog
% Copyright (c) 1986 Eric Gisin
% Copyright (C) 1992 Aladdin Enterprises, Menlo Park, CA (ghost@aladdin.com)
% Modified to print all 256 encoded characters,
% plus any unencoded characters.
% Example usages at bottom of file
/#copies 1 def
/T6 /Times-Roman findfont 6 scalefont def
/Temp 64 string def
/Inch {72 mul} def
/Base 16 def % char code output base
% do single character of page
% output to rectangle ll=(0,-24) ur=(36,24)
/DoChar {
/C exch def
/S (_) dup 0 C put def
/N F /Encoding get C get def
% print code name, width and char name
/W F setfont S stringwidth pop def
T6 setfont
N /.notdef ne {0 -20 moveto N Temp cvs show} if
0 -12 moveto C Base Temp cvrs show ( ) show
W 0.0005 add Temp cvs 0 5 getinterval show
% print char with reference lines
N /.notdef ne {
3 0 translate
0 0 moveto F24 setfont S show
/W S stringwidth pop def
0 -6 moveto 0 24 lineto
W -6 moveto W 24 lineto
-3 0 moveto W 3 add 0 lineto
0 setlinewidth stroke
} if
} def
% print page title
/DoTitle {
/Times-Roman findfont 18 scalefont setfont
18 10.5 Inch moveto FName Temp cvs show ( ) show ((24 point)) show
} def
% print one block of characters
/DoBlock { % firstcode lastcode
/FirstCode 2 index def
1 exch {
/I exch def
/Xn I FirstCode sub 16 mod def /Yn I FirstCode sub 16 idiv def
gsave
Xn 36 mul 9 add Yn -56 mul 9.5 Inch add translate
I DoChar
grestore
} for
} def
% print a line of character
/DoLine { % firstcode lastcode
1 exch { (_) dup 0 3 index put show pop } for
} def
% print font sample page
/DoFont {
/FName exch def % font name
/F FName findfont def
/F24 F 24 scalefont def
/Line0 96 string def
/Line1 96 string def
DoTitle (, characters 0-127) show
0 127 DoBlock
F 10 scalefont setfont
18 2.0 Inch moveto 0 63 DoLine
18 1.5 Inch moveto 64 127 DoLine
showpage
DoTitle (, character 128-255) show
128 255 DoBlock
F 10 scalefont setfont
18 2.0 Inch moveto 128 191 DoLine
18 1.5 Inch moveto 192 255 DoLine
showpage
} def
% Do font samples
% /Times-Roman DoFont % Test (less than a minute)
% /Hershey-Gothic-English DoFont % Test (8 minutes)
% Do a complete catalog
% FontDirectory {pop DoFont} forall % All fonts (quite a long time)